home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / oop_tp55.zip / LIST1_2.PAS < prev    next >
Pascal/Delphi Source File  |  1989-12-03  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.                  type
  8.                  
  9.                  XYZ = object
  10.                        a : integer;
  11.                        b : real;
  12.                        c : string[32];
  13.                        procedure Init( aa : integer; bb : real;
  14.                                        cc : string );
  15.                        end;
  16.  
  17.                  procedure XYZ.Init( aa : integer; bb : real;
  18.                                        cc : string );
  19.                  begin
  20.                       a := aa;
  21.                       b := bb;
  22.                       c := cc;
  23.                  end;
  24.  
  25.                  var
  26.                  R    :    XYZ;
  27.  
  28.                  begin
  29.  
  30.                  R.Init( 1234, 2.712,
  31.                                'The string is 32 characters long');
  32.                  writeln( 'The integer value is ', R.a );
  33.                  writeln( 'The string value is "', R.c, '"' );
  34.                  writeln( 'The real value is ', R.b );
  35.  
  36.                  end.
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.